home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Educ / Higher Ed / G-M / MacPhaseExtras.sit / MacPhase Extras / Macros / Mary.m < prev    next >
Encoding:
Text File  |  1994-02-05  |  686 b   |  49 lines  |  [TEXT/DAHN]
  1. macro Mary;
  2. {    Example Macro That Plays MIDI notes }
  3. var
  4.  integer : c,d,e,f,g,a,b,ch;
  5. begin
  6.     c:=60;
  7.     d:=62;
  8.     e:=64;
  9.     f:=65;
  10.     g:=67;
  11.     a:=69;
  12.     b:=71;
  13.     ch:=72;
  14.     Tone(500,c);    
  15.     Tone(500,d);    
  16.     Tone(500,e);    
  17.     Tone(500,f);    
  18.     Tone(500,g);    
  19.     Tone(500,a);    
  20.     Tone(500,b);    
  21.     Tone(500,ch);    
  22.     Delay(30);
  23.     Tone(500,a);    
  24.     Tone(500,g);    
  25.     Tone(500,f);    
  26.     Tone(500,g);    
  27.     Tone(500,a);    
  28.     Tone(500,a);    
  29.     Tone(700,a);    
  30.     Tone(500,g);    
  31.     Tone(500,g);    
  32.     Tone(700,g);    
  33.     Tone(500,a);    
  34.     Tone(500,ch);    
  35.     Tone(700,ch);    
  36.     Tone(500,a);    
  37.     Tone(500,g);    
  38.     Tone(500,f);    
  39.     Tone(500,g);    
  40.     Tone(500,a);    
  41.     Tone(500,a);    
  42.     Tone(500,a);    
  43.     Tone(500,a);    
  44.     Tone(500,g);    
  45.     Tone(500,g);    
  46.     Tone(500,a);    
  47.     Tone(500,g);    
  48.     Tone(1000,f);    
  49. end;